home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / C / hf^k-4.dms / in.adf / Rexx.Lha / showargs.srx < prev   
Encoding:
Text File  |  1996-11-10  |  1004 b   |  43 lines
  1. /* 
  2.     showargs.srx
  3.     
  4.     Display the arguments.
  5.         
  6.     © 1996 HAAGE & PARTNER GmbH
  7.     
  8.     $VER showargs.srx 1.0 (10.11.96)
  9.     
  10. */
  11.  
  12. /* Don't forget the point '.' at the end      \/        */
  13. PARSE ARG '"' filename '"' '"' projectname '"' useobjectdir '"' objectdir '"' .
  14.  
  15. /* Replace any suffix by ".obj" */
  16. lastpos = LASTPOS(".",filename)
  17. IF lastpos > 0 THEN 
  18.     objectname = LEFT(filename,lastpos-1)||".obj"
  19.  
  20. IF useobjectdir ~= 0 THEN DO
  21.     lastpos = LASTPOS("/",objectname)
  22.     IF lastpos > 0 THEN 
  23.         objectname = LEFT(objectname,lastpos+1)
  24.     lastpos = LASTPOS(":",objectname)
  25.     IF lastpos > 0 THEN 
  26.         objectname = LEFT(objectname,lastpos+1)
  27.     objectname = objectdir||"/"||objectname
  28. END
  29.     
  30. SAY ""
  31. SAY "ShowArgs Script ©1996 HAAGE & PARTNER GmbH"
  32.  
  33. SAY "File    = "||filename
  34. SAY "Project = "||projectname
  35. SAY "Object  = "||objectname
  36. IF useobjectdir THEN 
  37.     SAY "Place object in """||objectdir||""" if linkable code is generated."
  38. ELSE
  39.     SAY "Place object in file's directory."
  40.  
  41. /* set object file */
  42. OBJECTS filename objectname
  43.